home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / VisionaleV1.1-D1.adf / virx / ScaleImage.virx < prev    next >
Text File  |  1992-10-30  |  1KB  |  50 lines
  1. /*
  2.  * ScaleImage.virx
  3.  * Copyright (c)1992 Bruno Costa & Lucia Darsa
  4.  */
  5.  
  6. options results
  7.  
  8. signal on HALT
  9. signal on SYNTAX
  10. signal on FAILURE
  11.  
  12. lockgui
  13.  
  14. form = '"FILE,Source image:,,50|'        ||,
  15.        'FILE,Destination image:,,50|'        ||,
  16.        'INT,Destination Width:,320,6|'        ||,
  17.        'INT,Destination Height:,200,6|'        ||,
  18.        'BOOL,Use Factors,1|'            ||,
  19.        'STR,X Factor:,1.0,6|'            ||,
  20.        'STR,Y Factor:,1.0,6"'
  21.  
  22. requestform TITLE '"Scale Image"' form
  23. if rc >= 5 then
  24.   signal halt
  25.  
  26. parse var result source '|' dest '|' dwidth '|' dheight '|' usefact '|' xfact '|' yfact
  27.  
  28. if usefact = 1 then
  29.   scaleimage '"'||source||'"' '"'||dest||'"' trunc(xfact * 1000) 1000 trunc(yfact * 1000) 1000
  30. else
  31.   scaleimage '"'||source||'"' '"'||dest||'"' WIDTH dwidth HEIGHT dheight
  32.  
  33. unlockgui
  34. exit 0
  35.  
  36. BREAK_C:
  37. HALT:
  38.  unlockgui
  39.  exit 20
  40.  
  41. FAILURE:
  42.  requestnotify '"Host *"'address()'*" returned an error (severity 'rc')*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
  43.  unlockgui
  44.  exit 20
  45.  
  46. SYNTAX:
  47.  requestnotify '"'errortext(rc)'*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
  48.  unlockgui
  49.  exit 20
  50.